home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / epp_v1_1.lha / EPP / PModules / listClear.e < prev    next >
Text File  |  1993-06-26  |  234b  |  14 lines
  1. OPT TURBO
  2.  
  3. PROC listClear (theList)
  4.   DEF listCurrent
  5.   listCurrent := ^theList
  6.   WHILE listCurrent <> NIL
  7.     Dispose (listCurrent)
  8.     listCurrent := Next (listCurrent)
  9.   ENDWHILE
  10.   DisposeLink (^theList)
  11. ENDPROC
  12.   /* listClear */
  13.  
  14.